home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / DEFS2.FAS < prev    next >
Text File  |  1994-02-05  |  7KB  |  123 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D5 37 01 30 D6 19 01)
  4.    (NTH-VALUE FUNCTION-LAMBDA-EXPRESSION DEFPACKAGE DEFINE-SYMBOL-MACRO PRINT-UNREADABLE-OBJECT
  5.     DECLAIM
  6.   ))
  7. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  8. #Y(#:TOP-LEVEL-FORM-4 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) NTH-VALUE
  9.    REMOVE-OLD-DEFINITIONS MACRO
  10.    #Y(NTH-VALUE
  11.       #115Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 1C 9A 57 74 9B 57 57 74 A8 8B 09 07 A8 D7 8C 01
  12.             30 80 46 DF A9 E0 AA 77 02 5C 03 19 05 A9 2E 01 19 03 D9 A8 5C 02 19 05 A8 D7 8C 01 2B
  13.             74 37 01 6E 82 A7 77 01 5F AB 1A 0E 37 01 6E 82 A7 80 03 A7 80 02 16 01 82 00 A7 8B 84
  14.             6E DA AA AD DB DC 9E 76 77 02 AE 5C 05 19 09 A8 D8 8C 01 2D 49 DD A8 C9 5D 02 19 05
  15.            )
  16.       3. MACRO-CALL-ERROR 0. 127. PROG1 MULTIPLE-VALUE-BIND DECLARE IGNORE PROGN (NIL) NTH
  17.       MULTIPLE-VALUE-LIST
  18.   )  )
  19. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
  20.    FUNCTION-LAMBDA-EXPRESSION REMOVE-OLD-DEFINITIONS
  21.    #Y(FUNCTION-LAMBDA-EXPRESSION
  22.       #62Y(01 00 00 00 00 02 A8 8B 07 0C A8 8B 06 0D 5F 60 00 14 3F 03 19 02 D5 D6 AA 5E 02 D7 A9
  23.            D8 31 27 76 A9 D9 6E 27 AA DA 6E 27 AB DB 6E 27 AC DC 6E 27 AD DD 6E 27 6F 05 00 AA DE
  24.            31 27 1A 53
  25.           )
  26.       "~: ~ is not a function" FUNCTION-LAMBDA-EXPRESSION LAMBDA 1. 4. 5. 6. 7. 8. 0.
  27.   )  )
  28. #Y(#:TOP-LEVEL-FORM-6 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DEFPACKAGE
  29.    REMOVE-OLD-DEFINITIONS MACRO
  30.    #Y(DEFPACKAGE
  31.       #553Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 80 42 00 2A 01 9B 57 56 0B 00 00 9B 57 75 A8 69
  32.             02 01 64 02 00 C3 33 0B 02 00 9A 2A 01 01 05 D9 01 02 00 0B 08 00 14 B0 69 05 01 B3 5F
  33.             A8 88 92 81 1A 83 01 00 14 8A 08 80 E0 CC 14 DD 64 11 00 DD AB 5E 04 A9 2E 01 19 03 98
  34.             56 25 06 80 C2 DC DD 64 11 00 DE 5E 03 8E 0B 75 7A 0B 1A 80 D6 91 00 5F 1A 0A 83 01 00
  35.             14 C3 70 80 0C 7F 01 A8 89 92 72 16 02 1A 80 BE 91 00 5F 1A 0D 83 01 00 14 04 10 70 9D
  36.             70 80 0B 7F 01 A8 89 92 6F 16 02 1A 80 A3 98 57 74 C3 70 99 57 75 5F 1A 0F 83 01 00 14
  37.             04 11 70 9E 70 9B 76 80 0B 7F 01 A8 89 92 6D 16 03 1A 80 80 91 00 5F 1A 0A 83 01 00 14
  38.             C3 70 80 09 7F 01 A8 89 92 72 16 02 79 06 1A 80 66 98 57 74 C3 70 99 57 75 5F 1A 0F 83
  39.             01 00 14 04 11 70 9E 70 9B 76 80 08 7F 01 A8 89 92 6D 16 03 1A 80 43 91 00 5F 1A 0D 83
  40.             01 00 14 04 10 70 9D 70 80 06 7F 01 A8 89 92 6F 16 02 1A 29 91 00 5F 1A 1E DF DD 64 11
  41.             00 90 03 5E 03 90 00 8A 7F FF 29 CB 1A FF 17 83 01 00 14 04 10 70 80 05 7F 01 A8 89 92
  42.             71 16 02 7F 01 1A FE F3 E7 E6 E8 B3 6F 00 17 77 02 64 11 00 77 03 5C 01 1A 3E 16 02 7B
  43.             02 0A 00 A7 A9 32 00 19 16 01 AE 7D 43 07 AD 7D 43 06 AC 7D 43 05 8E 03 03 AB 31 43 FA
  44.             A9 7D 43 02 A8 7D 43 01 A7 7D 43 00 E2 E3 E4 64 0F 00 E5 E6 B4 77 02 77 04 8E 09 FF B1
  45.             00 14 5F B1 1A 20 EA E6 B2 77 02 64 13 00 77 03 5C 01 1A 1F 90 00 E9 90 01 91 02 64 16
  46.             00 77 04 80 02 16 01 7F 00 98 20 6B 16 01 A7 7C A3 00 8E 09 54 00 14 5F B0 1A 38 EC ED
  47.             E6 EE B3 6F 00 17 77 02 E6 EF B4 6F 00 17 77 02 77 04 5C 01 1A 2E F0 E6 B1 77 02 64 16
  48.             00 77 03 5C 01 1A 25 90 00 EB 90 01 91 02 64 18 00 77 04 80 02 16 01 7F 00 98 20 6B 16
  49.             01 A7 7C A3 00 8E 08 FF BB 00 14 8E 08 4E 00 14 F1 64 16 00 77 02 77 01 32 07 20 5D 03
  50.             19 10
  51.            )
  52.       2. MACRO-CALL-ERROR
  53.       #Y(LISP::DEFPACKAGE-CHECK-SYMNAME
  54.          #30Y(01 00 00 00 00 02 A8 8A 04 0C A8 8A 03 0B D6 D7 65 00 01 AB 5E 03 99 19 02 A8 31 7E
  55.               19 02
  56.              )
  57.          NIL "~S ~A: symbol name ~S should be a string or a symbol" DEFPACKAGE
  58.         )
  59.       #Y(LISP::DEFPACKAGE-CHECK-PACKNAME
  60.          #27Y(01 00 00 00 00 02 A8 8A 04 09 A8 8A 03 08 D5 D6 AA 5E 02 99 19 02 A8 31 7E 19 02)
  61.          "~S: package name ~S should be a string or a symbol" DEFPACKAGE
  62.         )
  63.       ("LISP")
  64.       #Y(LISP::DEFPACKAGE-RECORD-SYMNAME
  65.          #35Y(01 00 00 00 00 02 A8 65 00 01 D6 37 02 88 B3 0B A8 07 00 01 58 0C 00 01 99 19 02 D7
  66.               D8 65 01 01 AB 5E 03
  67.              )
  68.          NIL #.#'STRING= "~S ~A: the symbol ~A must not be specified more than once" DEFPACKAGE
  69.         )
  70.       #S(HASH-TABLE EQ (:EXPORT . 191.) (:INTERN . 165.) (:IMPORT-FROM . 130.) (:USE . 104.)
  71.          (:SHADOWING-IMPORT-FROM . 69.) (:SHADOW . 42.) (:NICKNAMES . 18.) (:SIZE . 10.)
  72.         )
  73.       "~S ~A: the ~S option must not be given more than once" DEFPACKAGE :SIZE
  74.       "~S ~A: unknown option ~S" "~S ~A: invalid syntax in ~S option: ~S"
  75.       "~S ~A: not a ~S option: ~S" EVAL-WHEN (LOAD COMPILE EVAL) IN-PACKAGE :NICKNAMES QUOTE SHADOW
  76.       #.#'MAKE-SYMBOL SHADOWING-IMPORT-CERROR USE-PACKAGE IMPORT-CERROR MAPCAR #'INTERN #.#'CAR
  77.       #.#'CDR INTERN-EXPORT FIND-PACKAGE
  78.   )  )
  79. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) FIND-SYMBOL-CERROR
  80.    REMOVE-OLD-DEFINITIONS
  81.    #Y(FIND-SYMBOL-CERROR
  82.       #32Y(03 00 00 00 00 04 AA AA 30 D4 41 02 8E 00 0E D5 D6 D7 AD AF B1 2C 06 03 AC AC 7C D3 01
  83.            99 19 06
  84.           )
  85.       "This symbol will be created." "~S ~A: There is no symbol ~A::~A ." DEFPACKAGE CERROR
  86.   )  )
  87. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) SHADOWING-IMPORT-CERROR
  88.    REMOVE-OLD-DEFINITIONS
  89.    #Y(SHADOWING-IMPORT-CERROR #17Y(03 00 00 00 00 04 AA AA AA 6A 03 00 A9 30 D9 19 04)
  90.       FIND-SYMBOL-CERROR
  91.   )  )
  92. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) IMPORT-CERROR
  93.    REMOVE-OLD-DEFINITIONS
  94.    #Y(IMPORT-CERROR #17Y(03 00 00 00 00 04 AA AA AA 6A 03 00 A9 30 D8 19 04) FIND-SYMBOL-CERROR)
  95.   )
  96. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) INTERN-EXPORT
  97.    REMOVE-OLD-DEFINITIONS
  98.    #Y(INTERN-EXPORT
  99.       #36Y(02 00 00 00 00 03 5F AA 1A 0C 90 00 A7 AC 6D D3 80 02 16 01 7F 00 98 20 71 16 01 A7 7C
  100.            A3 00 A9 30 D6 19 03
  101.   )  )    )
  102. #Y(#:TOP-LEVEL-FORM-11 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  103.    DEFINE-SYMBOL-MACRO REMOVE-OLD-DEFINITIONS MACRO
  104.    #Y(DEFINE-SYMBOL-MACRO
  105.       #63Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2C 27 9A 57 74 9B 57 57 74 A8 8B 03 21 D9 5F DA DB
  106.            DC DD AE 77 02 DE DD AF 77 02 77 02 77 03 77 03 DD AC 77 02 5C 04 19 05 A9 2E 01 19 03
  107.            D7 D8 AA 5E 02
  108.           )
  109.       3. MACRO-CALL-ERROR "~S: the name of a symbol macro must be a symbol, not ~S"
  110.       DEFINE-SYMBOL-MACRO LET EVAL-WHEN (COMPILE LOAD EVAL) SET QUOTE MAKE-SYMBOL-MACRO
  111.   )  )
  112. #Y(#:TOP-LEVEL-FORM-12 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01)
  113.    PRINT-UNREADABLE-OBJECT REMOVE-OLD-DEFINITIONS MACRO
  114.    #Y(PRINT-UNREADABLE-OBJECT
  115.       #55Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 1A 9A 57 74 9B 57 56 57 75 9C 57 75 A8 D7 30 61
  116.            D8 8E 01 0C 00 14 9C 5D 02 19 06 A9 2E 01 19 03 D9 DA 5F 9C 78 02 5C 02 1A 6B
  117.           )
  118.       2. MACRO-CALL-ERROR (:IDENTITY :TYPE) WRITE-UNREADABLE FUNCTION LAMBDA
  119.   )  )
  120. #Y(#:TOP-LEVEL-FORM-13 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DECLAIM
  121.    REMOVE-OLD-DEFINITIONS MACRO
  122.    #Y(DECLAIM #17Y(01 00 01 00 00 08 91 02 D5 D6 A9 77 02 5C 02 19 04) PROCLAIM QUOTE)
  123.   )